﻿Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim strPath As String = TextBox1.Text
        Dim dir As New ClsDirectory(strPath)
        dir.testMain()
    End Sub
End Class